home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8404.d64
/
spr.move demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
695b
|
24 lines
200 PRINT"[147]":V=53248:SYS49700
210 FORN=0TO125:READQ:POKE49900+N,Q:NEXT
215 FORI=2040TO2047:POKEI,13:NEXT
220 POKEV+23,255:POKEV+29,255
230 G=V:FORI=0TO7:X(I)=G:G=G+1:Y(I)=G:G=G+1:NEXT
240 FORI=0TO7:POKEX(I),120:POKEY(I),120:NEXT
250 FORI=0TO7:POKEV+39+I,1:NEXT
260 !VAL1,0:POKEV+21,255
270 !RUN0,2,5:!RUN1,1,8:!RUN2,3,10:!RUN3,4,0
280 !RUN4,6,255:!RUN5,7,35:!RUN6,8,20:!RUN7,9,4
290 FORI=0TO15000:NEXT
300 FORI=0TO7:!STOPI:NEXT
310 FORI=0TO500:NEXT:POKEV+21,1:R=8
320 POKEX(0),200:POKEY(0),200
325 !RUN0,R,50
330 FORI=0TO200:NEXT:!VAL1,1
340 FORI=0TO200:NEXT:!VAL1,0
350 IFPEEK(Y(0))<50ORPEEK(Y(0))>200THENR=10-R
360 GOTO325
1000 DATA,,,,,,32,32,32,16,80,64,8,112,128,7,255,,1,252,,,136,,1,140
1010 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
2000 DATA,,,,,,,32,,,80,,,112,,127,255,240,1,252,,,136,,1,140
2010 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,